0 CLR
100 DATA 162,0,142,81,32,142,82,32,142,83,32,232,142,80,32
110 DATA 32,198,255,32,228,255,141,84,32,165,144,208,37,32,228,255
120 DATA 238,80,32,208,3,238,81,32,238,82,32,208,3,238,83,32
130 DATA 205,84,32,240,228,141,84,32,169,0,141,82,32,141,83,32
140 DATA 240,215,76,204,255
200 FOR J=8192 TO 8259
210 READ X:T=T+X
220 POKE J,X
230 NEXT J
240 IF T<>8286 THEN STOP
300 INPUT "NAME OF FILE";F$
310 OPEN 15,8,15
320 OPEN 1,8,3,F$
330 INPUT#15,E,E$:IF E<>0 THEN PRINT E$:CLOSE 15:STOP
340 SYS 8192
350 INPUT#15,E,E$,E1,E2:IF E<>0 THEN PRINT E$:CLOSE 15:STOP
360 CLOSE 1:CLOSE 15
370 PRINT PEEK(8272)+PEEK(8273)*256;"CHARACTERS"
380 N=PEEK(8274)+PEEK(8275)*256
390 PRINT "LAST";
400 IF N>0 THEN PRINT N+1;"CHARACTERS: ";
410 IF N=0 THEN PRINT " CHARACTER: "
420 PRINT PEEK(8276)